% belastingsbussen_14;
load belastingsbussen;
sectoren_namen;
for i=1:1:aantal_belastingsbussen
    nummer_belastingsbus = belastingsbussen(i,1);
    nummer_belas = int2str(nummer_belastingsbus);
    test_string=strcat('problemen_bus_',nummer_belas);
    if 1==exist(test_string)
        nmatrix = eval(test_string);
        [r,k]=size(nmatrix);
        %vergroten van de originele matrix
        nmatrix = zeros(r,k+aantal_sectoren);
        nmatrix (1:r,1:k) = eval(test_string);
        for s=1:1:aantal_sectoren
            for j=1:1:r
                if nmatrix(j,6)==1 %Tis een onderbreking!!!
                    naam_sector = sectoren(1,s);
                    vermogen_incident = vermogen(i);
                    kost_incident = belasting_sector(naam_sector,vermogen_incident,nmatrix(j,3));
                    nmatrix(j,7+s) = kost_incident;
                else %tis een dipje :-)!!
                    naam_sector = sectoren(1,s);
                    vermogen_incident = vermogen(i);
                    kost_incident = belasting_sector(naam_sector,vermogen_incident,1200)*nmatrix(j,6);
                    nmatrix(j,7+s) = kost_incident;
                end
            end
        end
    eval([test_string '= nmatrix']);
    end
end


    